#!/bin/ksh

##############################################################################
#
# AIX 3.2 Internationalization Sample Environment Package
#
# (C) COPYRIGHT International Business Machines Corp. 1989 All Rights Reserved
#
# US Government Users Restricted Rights - Use, duplication or disclosure 
# restricted by GSA ADP Schedule Contract with IBM Corp.
#
# INTERNATIONAL BUSINESS MACHINES CORPORATION PROVIDES THIS PACKAGE OF SAMPLE
# ENVIRONMENT FILES, BOTH INDIVIDUALLY AND AS ONE OR MORE GROUPS, AS IS, 
# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING, BUT NOT
# LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A 
# PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE 
# SAMPLE ENVIRONMENT FILES, BOTH INDIVIDUALLY AND AS ONE OR MORE GROUPS, IS
# WITH YOU. SHOULD ANY PART OF THE SAMPLE ENVIRONMENT PACKAGE PROVE DEFECTIVE,
# YOU (AND NOT IBM) ASSUME THE ENTIRE COST OF ALL NECESSARY SERVICE, SUPPORT,
# REPAIR OR CORRECTION.
#
# Each copy of the AIX 3.2 ILS Sample Environment Package or derivative work
# thereof must reproduce the IBM Copyright notice and the complete contents of
# this notice.
#
##############################################################################

# Usage: langedit Locale 
set -x
exec > /tmp/langedit.log 2> /tmp/langedit.log

LOCALE=$1
export LANG=`getField 3 $LOCALE`
export LC_MESSAGES=`getField 3 $LOCALE`

#
# Check if locale is installed
#
getSysLocale $LOCALE 
if [ $? = 1 ]
then
   xmmsg "Locale $LOCALE is not installed"
   exit
fi

#
# Deterimine title name based on WM locale's
#

# Determine codeset of mwm (assumes LANG is WM's locale)
chrset_wm=`getField 2 "$LANG"`
chrset_app=`getField 2 "$LOCALE"`

TITLE=""
if [ "$chrset_wm" = "$chrset_app" ] 
then
	#
	# Get the name of the language in the WM's code set
	#
	CODESET=`getCS "$LOCALE"`
	lg=`getField 5 "$LOCALE"`
	
	TITLE=`grep "$lg"_ $HOME/tables/"$CODESET" 2> /dev/null`

	if [ -n "$TITLE" ]
	then
		TITLE=`expr "$TITLE" : '.* \(.*\)'`
	fi
fi


if [ -z "$TITLE" ]
then
	#
	# Get the PCS name of the languge
	#   format must be %t(%l)
	#
	#  %l cs_class , e.g. Japanese EUC
	TITLE=`getField 4 "$LOCALE"`
	TITLE=`expr "$TITLE" : '.*(\(.*\))'`
fi
cs_class=`getField 6 "$LOCALE"`


#
# Now compose command 
#

CMD=dtpad
COLUMNS1=3
COLUMNS2=3
COLUMNS3=80
COLUMNS4=40
COLUMNS5=6
COLUMNS6=3
case "$LOCALE" in
   ja_JP )
	COLUMNS1=2
	COLUMNS2=2
	COLUMNS3=40
	COLUMNS4=20
	COLUMNS5=3
	COLUMNS6=2
	FONT="*mincho*27*;*jis*:" ;;
   Ja_JP )
	COLUMNS1=2
	COLUMNS2=2
	COLUMNS3=40
	COLUMNS4=20
	COLUMNS5=3
	COLUMNS6=2
	FONT="*mincho*27*;*jis*:" ;;
   zh_TW )
	COLUMNS1=2
	COLUMNS2=2
	COLUMNS3=40
	COLUMNS4=20
	COLUMNS5=3
	COLUMNS6=2
	FONT="*sung*27*;*cns*:" ;;
   ko_KR )	
	COLUMNS1=2
	COLUMNS2=2
	COLUMNS3=40
	COLUMNS4=20
	COLUMNS5=3
	COLUMNS6=2
	FONT="*myungjo*27*;*ksc*:" ;;
   Ar ) FONT="*medium-r*--23*-1046" ;;
   ar ) FONT="*medium-r*--23*-1046" ;;
   Iw ) FONT="*medium-r*--30*-856" ;;
   iw ) FONT="*medium-r*--30*-856" ;;
   * ) FONT="*medium-r*--30*" ;;
esac

TITLE="$CMD: $TITLE $cs_clss $LOCALE (`getField 6 $LOCALE`)"

#
# Invoke commands to initalize command
#

setkb $LOCALE

XENV=/tmp/langedit.$LOCALE.xenv
/bin/rm -f $XENV
cat << EOF > $XENV
!dtpad*iconFontList: $FONT
dtpad*fontList: $FONT
dtpad*mainTitle: $TITLE
dtpad*useMessaging: False
dtpad*ad_dial.left_text.columns: $COLUMNS1
dtpad*ad_dial.right_text.columns: $COLUMNS2
dtpad*text.columns: $COLUMNS3
dtpad*save_dialog.new_text.columns: $COLUMNS4
dtpad*statusLine.lineText.columns: $COLUMNS5
dtpad*statusLine.colText.columns: $COLUMNS6
EOF

XENVIRONMENT=$XENV $CMD

/bin/rm -f $XENV
